﻿Public Class NF01_VR


    Public Function guardarF01VR(ByVal item As Entidades.EF01Vehiculo) As Boolean
        Dim oDatos As New Datos.DF01VR
        Dim oF01VR As New List(Of Entidades.EF01Vehiculo)
        Dim band As Boolean
        Try
            band = oDatos.guardar(item)
        Catch ex As Exception
            Throw New ArgumentException(ex.Message)
        Finally
            oDatos = Nothing
        End Try
        Return band
    End Function

    Public Function editarF01VR(ByVal item As Entidades.EF01Vehiculo) As Boolean
        Dim oDatos As New Datos.DF01VR
        Dim oF01VR As New List(Of Entidades.EF01Vehiculo)
        Dim band As Boolean
        Try
            band = oDatos.editar(item)
        Catch ex As Exception
            Throw New ArgumentException(ex.Message)
        Finally
            oDatos = Nothing
        End Try
        Return band
    End Function
End Class
